10 REM   LOOK AT THIS
20 REM    12/20/84
30 :
40 PRINT"[147]":POKE53280,1:POKE53281,0
45 C$="[179][177][171][178]"
50 PRINTCHR$(14)
60 T$="[200]AVE YOU EVER WANTED TO MAKE":GOSUB60000
62 T$="A PROGRAMMER SICK?":GOSUB60000
64 T$="[215]ELL NOW YOU CAN!!":GOSUB60000:GOSUB61000
66 PRINT""
68 T$="[211]CREEN [215]OBBLE":GOSUB60000:PRINT"[145][145]":T$="[163][163][163][163][163][163][163][163][163][163][163][163][163]":GOSUB60000
70 T$="[201]DEA":GOSUB60000:T$="BY":GOSUB60000:T$="[202]IMMY [215]EILER":GOSUB60000:PRINT
72 T$="[205]ACHINE [204]ANGUAGE [210]OUTINE":GOSUB60000:T$="BY":GOSUB60000
74 T$="[193]LAN [199]ARDNER":GOSUB60000:GOSUB61000
80 PRINT""
82 T$="[212]HIS PROGRAM IS DESIGNED TO BE FUN.":GOSUB60000
84 T$="[201]T'S ALSO DESIGNED TO DRIVE PEOPLE":GOSUB60000
86 T$="[195][160][210][160][193][160][218][160][217] ![160]![160]!":GOSUB60000:PRINT
88 T$="[212]HIS PROGRAM MAKES THE WHOLE SCREEN":GOSUB60000
90 T$="SHAKE AND QUIVER LIKE MAD!":GOSUB60000
92 T$="[212]RY TO WRITE A SERIOUS PROGRAM WITH":GOSUB60000
94 T$="THIS LITTLE JEWEL RUNNING!!":GOSUB60000:GOSUB61000
96 PRINT""
98 T$="[212]O STOP THE ACTION, TYPE [211][217][211]49158.":GOSUB60000
100 T$="[212]O START THE ACTION, TYPE [211][217][211]49152.":GOSUB60000
102 PRINT:PRINT
104 T$="[212]HIS PROGRAM USES THE FILES:":GOSUB60000
106 T$="[215][207][194].[201].[195]":GOSUB60000:T$="AND":GOSUB60000:T$="[215][207][194][160][194][207][207][212]":GOSUB60000
108 PRINT:PRINT
110 T$="[215]E HOPE YOU ENJOY IT!!!":GOSUB60000
112 T$="[200][193], [200][193], [200][193]!!!":GOSUB60000:GOSUB61000
150 PRINT""
152 PRINT"           1. [210][213][206][160]'[211]CREEN [215]OBBLE'"
154 PRINT"           2. [210][197][212][213][210][206][160][212][207][160][204][207][193][196][211][212][193][210]"
156 PRINT:PRINT"[215]HICH?";
158 POKE198,0:WAIT198,1:GETK$:IFK$<>"1"ANDK$<>"2"THEN158
160 PRINTK$
165 PRINT"          ..... [204]OADING ....."
170 IFK$="1"THENF$="WOB BOOT"
180 IFK$="2"THENF$="HELLO"
190 PRINT"[144]LOAD"CHR$(34)F$CHR$(34)",8":PRINT"RUN"
192 POKE631,13:POKE632,13:POKE198,2:END
60000 REM   CENTERING ROUTINE
60002 T=LEN(T$):T=20-T/2
60004 PRINTTAB(T)T$:PRINT
60006 RETURN
61000 REM   WAIT FOR KEY
61002 S=65520:POKE783,PEEK(783)AND254
61004 POKE781,24:POKE782,14:SYSS:PRINT"<PRESS A KEY>"
61006 FORX=1TOLEN(C$):D$=MID$(C$,X,1):POKE781,24:POKE782,12:SYSS:PRINTD$""
61007 POKE781,24:POKE782,28:SYSS:PRINTD$""
61008 NEXTX
61009 IFPEEK(198)=0THEN61006
61010 GETK$:PRINT"[147]":RETURN